unit oCoordinates;

interface
  type
    TCoordinates = class
      public
        X, Y : real;
      constructor Create(paX, paY : real); overload;
      //constructor Create(paPoint : TCoordinates); overload; //naco je tu toto ?  Miso 12.4
      constructor Create; overload;
    end;
implementation

{ TCoordinates }

constructor TCoordinates.Create(paX, paY: real);
begin
  X := paX;
  y := paY;
end;

constructor TCoordinates.Create;
begin
  X := 0; Y := 0;
end;

{constructor TCoordinates.Create(paPoint: TCoordinates);
begin
  x := paPoint.X;
  y := paPoint.Y;
end;  }

end.
